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The 2040 Dual Disk System Service Kit will provide 
the Service Center means to.isolate defective components 
or subassemblies by way of utilizing the internal 
diagnostics of the 2040, program diagnostics and 
trouble-shooting guides included on diskette and 
cassette. 

Some of the procedures are redundant but each 
procedure performs different.operations even though it 
seems to be the same procedure; 

The service procedures have been broken into 

categories to enable you to do an overall check or test 
a particular area of the 2040 system. The procedure 
relating to the SA 390 drive exercises all areas 
including alignment capability. Alignment procedures 
have been deleted due to necessary special tools and 
training. Commodore will provide this training in 
designated locations and times. You will be notified of 
schedule. 

We have also included in the 2040 Service Kit, a 


price list for SA 400. 




1. Position the computer and 2040 near one another in 
an open work area. 

2. Locate the power switch on each machine and place the 
rocker switch in the OFF position (the white dot on the 
switch not vi sable). '• 

J1 


/ 



3.0 Plug the power cord into an AC outlet. Power on the 
2040 System without connecting to the 2001. Check the 
three (3) LEDs located on the front panel. (fig. 1) 
They should turn on momentarily. If ail the LEDs do not 
extinguish then a problem has developed in the system. 
The diagram below indicates possible location of the 
defective component. 


LEDs 


Possible Defective Component 


• • •• 6532 1 s, 633 0, 6504 

o • • 63 32 at LI 

• • o 6332 at HI 


fig. 1 

4.0 Power 2040 System OFF before replacing any 
components. After changing components and problems 
still exist, replace Digital Logic assembly.. 


5.0 Connect a PET to IEEE cable between the systems. 

6.0 Apply power to the 2001 and note the power on 
message._ Power on the 2040, the LEDs on the front panel 
should light momentarily. 

7.0 Before you start testing the 2040 svstem, it's a 
good- idea to load the PET'DOS SUPPORT program into the 
2001. The program is designed for easier accassability 
to the commands of the 2040 system. See Aopendix 3 for 
detail description of the use*of PET DOS SUPPORT. 
















7.1 To load a program from mini-diskette: 

7.1.1 Place the "2040 System Test" diskette in drive 
0 of the 2040 system and close the door. 

TYPE 


LOAD"*",S [RETURN] 

Drive 0 on the 2040_ system will initialize the 
diskette and load the first program on the diskette. 
Note the error LED on the front panel of the 2040. If 
an error occures then some problem occured. Power OFF 
the 20 01 system then back on. Repeat this step. 3e 
sure to remove diskette before turning power OFF. 

7.1.2 If you are unsuccessful the second time to load 
the program from drive 0, try to load the program from 
drive 1. The procedure is as follows: 

1. Insert 2040 Test mini-diskette into drive 1. 

2. TYPE 

OPEN 1,3,15," II" [RETURN] 

This will initilize the mini-diskette on drive 

1 .. 

3. When the cursor returns to the screen 
TYPE 

LOAD"l: PET*,8 [RETURN] 

The program should now load in the 2001. If 
the error light turns on, you have isolated the 

defect to the Digital Logic or analog assembly. By 

trying to load the program from both drives 

eliminated drive failure. Proceed to step 7.2 for 

loading procedures from cassette tape. 

4. TYPE 


RUN [RETURN] 

The screen will now display PET DOS SUPPORT. 
See Appendix B for detail description of the use of 
PET DOS SUPPORT. 









5. To load the first test program use the 
following procedure: 

TYPE 

^ LOG* [RETURN] 


The Logic Diagnostic program will be called 
from storage on the mini-diskette and be loaded 
into the 2001. 

6. Proceed to 8.0 for operating instructions of 
the Logic Diagnostic test. 


7.2 To load a program from cassette tape. 

7.2.1 Connect the C2N unit to the tape interface 
connector on the 2001 or use the internal cassette unit. 

7.2.2 Place the 2040 SYSTEM TEST/C taDe in the 
cassette and rewind the tape. 

7.2.3 Load the first program on the taoe by 
depressing the "SHIFT" key and "RUN/STOP" key 
simultaneously. VThen the program finishes loading, the 
2001 will display PET DOS SUPPORT program. See amcendix 
B for detail description of the use of PET DOS SUPPORT. 

7.2.4 Load the Logic Diagnostic program from cassette 
tape by depressing the "SHIFT" key and "RUN/STOP" key 
simmultaneously. 

The 2001 will display: 

'SEARCHING 

FOUND LOGIC DIAGNOSTIC 
LOADING 

7.2.5 The Logic Diagnostic program will load from 
cassette tape and execute. The entire loading process 
should take approximately one minute. 

8.0 LOGIC DIAGNOSTIC TEST 

8.1 Follow the instructions that appear on the 

display of the 2001. If the logic components on the 
Digital board are in working order, the front oanel LEDs 
will randomly blink. If a problem has been detected a 
slow distinct pattern will be present. Reference the 
chart on the screen of the 2001 to isolate defective 
component. 




FAIL STATES OF DIAGNOSTICS 


STATE 

• • • 

• • o 

• o • 

• 00 

o • • 

0*0 

o o • 


COMPONENTS-PO SITIO N 

6532— El, Cl 

6332— K1 

6332 - HI 

2114 - C4 to F4 
C5 to F5 

6532 - El, Cl, 

Connector PI 

6530 - S3 
6504 - H3 

6530 - K3 


When the program detects an error condition, it 
will loop on the address where the error has occured. 
The select line on the chip will toggle at a steady 
rate. In the case of a RAM failure, the select line 
will toggle the IE blocks. Note, the block with the 
error condition and replace one of the two RAMs in the 
block. 


3.2 If you are unable to isolate the failure 
replace the digital logic board. 

3.3 Turn power off before replacing any conoonents 
on the 2040 system. 

3.4 Power the 2040 system back on. 

LOADING 




3.5 Depress "RUN/STOP" key on the 2001, then 

depress the "SHIFT” key and "CLEAR HOME" key 

simultaneously. The 2001 display will now be blank. 

8.6 To restart the "LOGIC DIAGNOSTIC" program: 

TYPE 

RON [RETURN] 

8.7 When the program has been run for 15 minutes 

and no failures have occured you can assume the Digital 
Logic board is O.K. 

9.0 "READ/WRITE" TEST: 

The Read/Write test allows you to verify the 
Read/Write heads of the drive. Gross alignment errors 
and the analog booard are also checked. 

9.1 Load the READ/WRITE test program from: 

a) mini-diskette 

or 

b) cassette 

9.1.1 FROM MINI-DISKETTE 

TYPE 

tREAD* [RETURN] 

NOTE: 3e sure to initilize drive before trying 
to load a program. 

9.2 FRCM CASSETTE TAPE 

TYPE 


LOAD "READ/WRITE" [RETURN] 

When the cursor returns to the screen:- 


TYPE 


RUN [RETURN] 




The 2001 screen will instruct you to: 

9.3 Insert formatted mini-diskettes labeled "A" in 
both drives and close the drive doors. 

HOTS:You nay create an "A" mini-diskette by 
formatting a blank mini-diskette on a knov/n 
good 2040 system. 

9.4 The first part of this program initializes both 
drives and checks the stepper motors. Answer thee 
question yes or no. If the answer is yes the program 
will continue to the next check. If the answer is no a 
malfunction has been detected. Possible failures are 
Drive Unit, Analog Assembly, Bad Media, or 5322. 

To verify a drive failure, connect a good drive unit 
in place of the suspected drive. You do not have to 
remove the drive in question. Set the good drive on top 
of the suspected drive and connect it to the appropriate 
connectors. This procedure allows you to verify the 
drive without disassembly of the 2040. 


9.5 The second part of the program actually reads a 

sector on each track. The left side of the disolay 
shows two numbers, 0 and 1. These are the drive 

numbers. The graph displays tracks that have been 
tested. A black square or squares indicates one of the 
following devices is bad. Replace in order. 

1. Bad Media 

2. Bad Analog 

3. Bad Drive 

MOTE: Remember to turn power off and remove 
diskettes before changing assemblies. 





ors. 


on 




The 2001 scrreenn will instruct you to: 

/ 

9.3 Insect formattted mini-diskeptes labeled "A" in 

/ 

/ 

/ 

/ 

NOTE:You may create an , , M, A" mini-diskette by 
formatting a blank minidiskette on a known 
good 2040 system. / 

/ 

/ 

drives and checks the stepper motors. Answer the 
question yes or no. If he answer is yes the oroaram 
will continue to the next chehk. If the answer is no a 
malfunction has been detected. Possible failures are 
Drive Unit, Analog Assembly,/Bad Media, or 6522. 

To verify a drive failure, connect a good drive unit 
in place of the suspected djrive. You do not have to 
remove the drive in question. Set the good drive on too 
of the suspected drive and connect it to the appropriate 
connectors. This procedure allows you to verify the 
drive without disassembly ctf the 2040. 


9.5 The second part of the program actually reads a 

sector on each track. Th4 left side of the display 
shows two numbers, 0 and 1. These are the drive 
numbers. The graph displays tracks that have been 
tested. A black square or .'squares indicates one of the 
following devices is bad. Replace in order. 

1. Bad Media 


2. Bad Analog 


3. Bad Drive 

NOTE: Remember ta turn power off and remove 
diskettes before Changing assemblies. 

'JVD£ \ 

\ 

RUN [RETURN] \ 


NOTE: Special tool^ and training are necessary 
for Head Alignment and Carriage Limiter 
Adjustment. DO NOT*, proceed with these two 
dajustments unless! you have been factory 
trained. • 

the screen of the 2001 to isolate defective component, 
val and ex-change. \ 





9.6 To complete the "Read/ttrite" program, the 

screen will ask you to repeat the test or to format the 
mini-diskette. The formatting of the mini-diskette is 
the last procedure of the test. 

Upon completion of this test you will have checked 
the validity of the Digital Logic assembly. Analog 
assembly and parts of the drives. You should be able to 
load programs from mini-diskettes at this time. If not, 
repeat previous tests or consult Commodore Customer 
Service. 


10.0 2040 TEST/ADJUST 

The "Test/Adjust" program was designed to allow the 
user to test the function of the 390 Drives for correct 
operation. The program also contains the software to 
allow a trained user to align the SA 390 drives in the 
2040 system. The program is menu oriented which allows 
the user to test specific functions of the Drive or to 
run the chain of tests to insure proper operation. 
Reference Appendix A for detailed explaination of each 
section. 

10.1 Load the "Test/Adjust" proaram from 
mini-diskette by inserting the 2040 Test Diskette into 
Drive 0. 


TYRE 

T2040 TEST* [RETURN] 

NOTE: 3e sure to initilize the drive before 
attempting to load the program. 


10.2 The "Test/Adjust" program is now displaying the 
first menu. For simplicity the program has been* broken 
down into categories. 

Procedure 1 

SA 390 Test and Checkout is a step by step 
procedure through all the different tests 
performed on the disks; 

Procedure 2 

SA 390 Adjustment and Alignment. This 
procedure will allow you to do all mechanical 
adjustments pertaining to the drive. 


NOTE: Special tools and training are 
for Eead Alignment and Carriage 
Adjustment. DO NOT proceed with 
adjustments unless you have been 
trained. 


necessary 
Limiter 
these two 
factory 




Procedure 3 

2040 Drive Compatibility. This procedure will 
allow you to check the alignment 
compatibility between the drives. It will 
format a mini-diskette on one drive and 
attempt to read it on the other. 


Procedure 4 

SA 3 SO Test Menu. Allows the user to 
individually select a test for all . known 
problems without running through all the 
tests. After the selected test is completed 
it is a good idea to do a complete test. 

Procedure 5 

SA 390 Adjustment Menu. Allows the user to do 
the individual adjustments without going 
through all the adjustment procedures. 

MOTE: Special tools and training are needed 
for Head Alignment and Carriage Limiter 
adjustment. DO HOT proceed with these two 
adjustments unless you have been authorised by 
the factory. 


11.0 FINAL SYSTEM TEST 


The Final System Test performs an overall test of 
the system. This test is divided into two parts. First 
part being file hanceling, read and write to and from 
different tracks, and exercises the 390 drives. Second 
part checks for soft errors,(soft errors are errors that 
are corrected by firnware). This proceedure will detect 
all soft errors and will print out on the screen how 
many soft errors have accured for each track of the 
diskette 


11.1 Insert the 2040 SYSTEM TEST Diskette into 

Drive 0 and initilize the diskette. 


11.2 TYPE 

tFI* [RETURN] 


11.3 You will be instructed to insert the 

formated "A" diskettes and press RETURN 


two 



11.4 The program will first execute a new command on 
Drive C then on Drive 1 to check the medianiai movement 
of the drives. After the mechanical test the program 
will go thru a sequense of reads and writes. 


11.5 If the test fails, note the failure and return 
to the appropriate test proceedure for finding the 
defective component. Continue to the next part of the 
test by pressing the "C" key 


11 .6 The screen will inform you to insert the 2040 
SYSTEIi TEST diskette into drive 6 and press RETUR'I 


11.7 The program will now load the diagnostic code 
to check for soft errors. Asterisks will be written 
across the screen during the loading of the machine 
code. 


11.8 Remove the 20 40 SYSTEII TEST diskette and insert 
the "S" diskettes in both drives. Press RETHRU when 
ready. 


11.2 The "S" diskettes contain a worst case pattern 
that covers the. entire diskette. This part of the 
program attempts to read the entire diskette without 
obtaining a soft error. If a soft error occurs, the 
cuanty of the soft errors and the track number on which 
they occure will be printed on the screen. Two complete 
passes of each drive is nessary to complete the test. 


11.10 If an error has occured restart the test bv 
pressing_the "R" key and noting she error on ohe second 
pass. If the error still occures verify that all 
modifications have been done on the 20 40 SYSTEII and the 
head alignment is correct. 


11*11 After the completion of all the tests the 2040 
SYSTEII has been exercised to the known limits of the 
software. 
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A.Q HEAD STEPPER TEST 


This test insures free operation and correct motion 
of the head carriage and stepper motor. The test 
first moves the head out to track 0 and then it 
moves the head in to track 34. The . final portion 
of the test moves the head in and out between track 
34 and track 0. If the drive does not respond as 
outlined above, there are two probable causes. 

1. Bad stepper motor (replace the drive). . 

2. Improper stepper control (check stepper 
control circuits. Possible bad 5522). 


A.l LED TEST 


This test checks the LED on the drive specified. 
The tests are on, off, and blinking. If 'the LED 
does not respond properly then ski? (use yes 
responses) to the. blink portion and check the 
signals to the LED. Possible failures are: 

1. Signal to LED (replace the drive). 

2. ITo signal to LED • (could be the analog 
board, cables or the 6532 (El) replace the 
faulty part) . 


A.2 WRITS PROTECT SWITCH TEST 


This test allows the user to check the function of 
the write protect switch on the disk drive. The 
drive's LED will be on for protected and off for 
not protected. 


Failure 

following 

1 . 

2 . 



3ad switch (replace drive). 
Improperly adjusted switch. 

Bad electronics (check 5530 r JK3) . 


> H i 


3 

















A. 3 MOTOR SPEED ADJUSTMEHT 


Motor. Test - will check motor operation and speed 
calibration. Adjust the motor speed pot with small 
flat blade screw driver until proper strobe pattern 
is stationary. Adjusting pot clockwise will move 
strobe counter-clockwise. 

Turn the pot R-12 located on the motor control PCB 
until the dark lines on the spindle pulley appear 
motionless. For 60 HZ use the outside ring" of 
lines. For the 50 HZ observe the inside ring. 
Reference Figure 4. 

MOTE: This adjustment can be made only in an 
area where there is flourescent lighting. 


*OTO« 111.7 



This test checks the speed of the spindle motor to 
insure it is within tolerance. If the drive fails 
this test it should be replaced or if oossible, 
realigned. 

A.5 HEAD ALIGNMENT 


MOTE: This adjustment is not normally required even 
on head replacement due to the ore-aligned head and 
carriage assembly, but if the stepper motor 
mounting screws are accidently loosened', if parts 
damage has cccured or ■ you are experiencing 
interchange problems use the following procedure to 
check and adjust the head alignment. 

Remove and adjust drive 0 first. The drive mav be 
removed by extracting the four (4) phillips screws 
from the bottom of the 2040 system and by" removing 
the head and edge connectors from the analog board. 





Once drive 0 is ad Justed, replace drive 1 with it. The 
•ana. log board can be removed -from drive 1 by removing 
the connectors and extracting the two <£) Phillips 
screws securing it in p lace. The ana.log board will 
slide ott its mounts. Remove drive 1 by extracting the 
four (4) Phillips screws holding the drive in Place and 
sliding the drive out through the -front panel. 


Take a. piece of cardboard (.approximately 5" x 15" size.- 1 
and lay it across the analog board extending to the 
right edge of the 2840 system. Locate the drive under- 
test on the cardbaord and connect the head and edge 
connectors to the analog. Place the drive in a 
horizontal position <on its left side). How you are 
ready to adjust the drive. 


Use a dua 1 trace score and adJ ust the score 


f o 1 lows : 


Mode: 

Sweep : 

Vo lts.-'D i v. : 
Probes •’ 

T r igger : 


Add 
28 MS 
58 MV 
3-X1 

External 



Connect channel 1 probe to TP4.. channel £ probe to TPS.- 
on the analog. NOTE ANALOG PARTS: LOCATION FOR 
LOCATION. Connect trigger probe to Pin 9 on position 
UM5 of the digital board. Adjust the trigger level 
during the head alignment for a lobe pattern on the 
d i sp lay. 


Head alignment check with the scope should be performed 
in a. horizontal position. Adjustments may be made from 
underneath or the drive may be rut in a vertical 
position., then returned to a horizontal position for 
the check. Adjust stepper motor by loosening two clamp 
screws and slightly twisting the motor in the desired* 
direction. Tighten with torque driver < #18). The 
i n i t i a. 1 h e ad a 1 i g n m ent s h o u 1 d b e m ad e f o r m ax i m u m 
output and actual lobe sizes on scope display. 

If either "hysteresis checks" result in unequal lobe 
sizes.- then adjust to split the difference between the 
two lobes. If this occur es.. repeat the alignment check 
to assure that all positions result in appropriate lobe 
patterns. Appropriate patterns are lobes which are 
within 88’i in size of each other. Note diagrams. 
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A. 5 HEAD ALIG2BIEHT CESCE 


This test is simply a validate of the svstem 
test diskette. 


This diskette has a file that encompasses the 
entire disk. If any errors occur then there 
cay be an alignment problem. Hither reclace 
the drive or align it. 

CTOTE: Insure your diskette is in good 
condition before using this test. 

A. 7 WHITE PROTECT SIT ITCH ADJUST 


Use write protect adjustment tool or diskette 
to adjust write-protect switch. Drive LED 
will detect protected—LED on and 

unprotected—LED off. 

1. Loosen v/rite protect switch screws and 
slightly tighten pivot screw (closest to spindle). 

2. Insert tool until "shim stock" notch is even 
with opening in top of disk guide. 

3. Raise switch with hex driver until switch 
closes (watch drive LSD). 

4. Tighten screws with torque driver (=11). 

5. _ Push tool in all the way until it bottoms 
against the Platen stop (this will now line urn the 
unprotect slot). 

5. Remove write protect tool. 

7. Close door. 
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DOS SUPPORT PROGRAM WEDGE 


bv Robert J. Fairbairn 


The purpose of this program is to aid the PET 2001 User in. 
operating the 2040 Dual Floppy Disk System. This instruction 
sheet has been written with the assumption that the reader 
has a working knowledge of the PET 2001 and the 2040. 

« 

NOTEi This program has been placed in the public domain. 

Please refer ail comments and suggestions to the editor. 

The normal method with which the PET communicates with an IEEE 
Buss device is by the BASIC commands OPEN, PRINT, GET, INPUT 
and CLOSE. These statements are somewhat verbose in nature 
and'therefore more prone to operator error. There is also the 
limitation that INPUT and GET cannot be used in direct mode 
due to shared buffer areas. These isiosyncrasies create a 
strained 2001/USER/2040 interface which has been greatly im¬ 
proved with the WEDGE 3.1 program. 

WEDGE 3.1 may be loaded (saved) as if it were a normal BASIC 
program. Note should be made of the fact that the 2040 has 
a special load file name ’*' which if used immediatly after 
power up (reset) executes the following: 

1. Initalizes Drive 0 

2. Loads the first file on that drive 

Thus if the command LOAD"*",8 is executed and the WEDGE program 
is the first directory entry it will be loaded. When the 'WEDGE 
rogram is executed it relocates itself up into the highest. 
available RAM memory locations, links into the CHRGET routine 
and adjusts BASIC's top of memory pointer down. This technique 
uses about 350 bytes of the Users memory but normal machine 
operations may proceed without having to reload the WEDGE pro¬ 
gram until such time that a system reset is performed. 

The WEDGE program functions by capturing the data that the PET 
operating system passes to BASIC, before the interpreter has a 
chance to parse it. Thus we can look for the escape characters 
and process the command without the use or knowledge or the 
BASIC interpreter. 

There are four escape characters that are recognized by the 
WEDGE program. They will be processed only when they are round 
in column one of an input line, otherwise a SYNTAX ERROR will 
occur. 


ESCAPE CHARACTERS 

> - Passes commands to the Disk. 

/ - LOAD'S a program. 

+ - LOAD'S and RUN's a program. 

The greater than symbol when used preceeding a 2040 Disk command, 
passes that command directly to the floppy disk system. See the 
following examples. 








Thus: 

>10 

is the same as: 

PRINK IS, "10” 
and: 

>S0:ETLE1 
is equal to: 

PRINK15, ”S0 :£TLEl 1 2 3 4 ' 

As you can see the > symbol is a substitute for the PRINK 15 statement. 
Remember that an OPEN statement is required before a PRINT may be executed 
but no OPEN is required for the WEDGE. 

The second function of the > escape character is the directory list 
contend. As you knew the directory of a minidisk can be leaded with a 
IOAD"$0",3. This LOAD will destroy any p r o g r am you might have in memory. 
Tb avoid the destruction of the current pro g r am the WEEGE prints the 
directory on the screen. 

>$0 

Means - Display the entire directory of Drive fi 

>$1:Q* 

Means - Display the directory entries of all files on Drive 1 that have 
names starting with the letter Q. 

The third function of the > escape character is the error channel interro¬ 
gation feature. The error channel is read by typing a > followed inmedi- 
ately by a RETURN. This is equivilent to the following program segment. 

10 OPEN 15,3,15 
20 INPUK15,ER,MSGS,DEV,SEC 
30 ?ER”, "MSGS", ''DRV”, "SEC 

The LOAD / and LQAD-RDN + escape characters operate the same as their 
BASIC counte rp a r ts only with a simpilified syntax as follows, 

/WQMPUS 

- The above contend will load the pr egr am file WUMPUS. Both drives will 
be searched if required. 

+1:CDPY DISK FILES 

- This command will load the program COPY DISK FILES fron Drive 1 (if it 
is there) and execute it. 

The following requirements and limitations are placed on the WEDGE program 
user. 

1. The WEDGE contends may only be used in direct mode. 

2. P rogra ms using GET or INPUT should disable the WEEGE by a POKE 1022,123 
st atan ent. This may also be done by typing the > followed by a K and 

a RETORN. 

3. The WEEGE is restored by a FOKE1022,08.- 

4. You may also disable the WEEGE by typing >K. — _ 


N 

V 


— 





















n 


NOTE: For Users that have a business keyboard PET (CBM) the at key " 
may be used in place of the > . This eliminates shifting for the escape 
character. 
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' ’S2153 

* < 'RIHT"I3"TflB< 11} 11 __•• 

'RINTTABCl 1>“cl PET BOS SUPPORT " 

30 PRI NTT AB <14 >"HOW LOADED 

40 PR INTTAB CSV COMMANDS FOLLOWING" 

50 PRINTTAB<7>"A > OR 0 IN COLUMN 1 WILL” 
SO PR INTTAB O) "BE PASSED TO THE DISK'..'?]" 

DESCRIPTION" 

DIRECTORV BOTH DRIVES 
DIRECTORV DRIVE 0 
DIRECTORY DRIVE 1M" 

— 2040 COMMANDS MAY BE 
PRINTTAB<?>-ENTERED AS IF THEY WERE IN 
PRINTTAB<7>"A PRINT# STATEMENT. 

PR INTTAB < 11 > " MslSPEC IAL COMMANDS 
PRINTTAB<7> “'?)/ LOAD A PROGRAM 
PRINTTAB<7>”T RUN A PROGRAM 
PRINT" SPECIAL COMMANDS START IN COL 1 
PRINT"ARE FOLLOWED 3V A 2040 FILENAME. 
NEW 


SO PRINTTAB<7>"CMD 
140 PRINTTAB<7>"$ 

PRINTTAB<7>"SO 
PRINTTAB < 7 V' S1 
PRINTTAB<7?" ALL 


150 
ISO 
180 
ISO 
200 
220 
230 
240 
250 
2 SO 
270 


EABV. 



AND 




DOS SUPPORT PROGRAM 


PAGE 0001 


m 


i 

IME # LOC 


CODE 


LINE 


)2 

''S 

0«j04 
0005 
0006 
0007 
OOOS 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
00 IS 
0019 
0020 
0021 
0022 
0023 


0024 
0025 
26 
’7 
>S 
0029 
0030 
0031 
0032 


0033 

0034 

0035 

0036 

0037 

0033 

0039 

0040 

0041 

0042 


0000 


0000 

5* 



0000 

}* PET DOS SUPPORT 


0000 

5* 



0000 

;* 

04-27-79 


0000 

;* 

• 


0000 

i* BOB FAIRBAIRN 


0000 

5 * 



0000 

5 a4n4u4«4«4«**<^^*****^*******2*****c4<*«4«*« 

0000 

;* 



0000 

;* VERSION 3.1 6/14/79 


0000 

;* 

ADD 3 PROMPT FOR 

BUSINESS 

0000 

i* 

KEYBOARD. ADD STOP KEY CHECK 

0000 

l * 

IN DIRECTORY PRINT. ADD 

0000 

J* 

HALT IN DIRECTORY PRINT 

0000 

J* 



0000 

JBASIC 

VARIABLES USED 


0000 

VERCK 

=S009D 

JVERIFY FLAG 

0000 

SAL 

=■30007 

»INDIRECT POINTER LO 

0000 

SAH 

=500CS 

5 HI 

0000 

MSI 

=5F000 

5MESSAGE 1 

0000 

MSI 9 

=5F0AE 

5 READY MESSAGE 

0000 

GRBTOP 

=S005C 

JINDIRECT POINTER 

0000 

MEMSIZ 

=30034 

.•POINTER TO TOP MEM 

0000 

TXTPTR 

=30077 

JPOINTER TO BUF 

0000 

SPERR 

=50010 

5E0I ERROR BIT 

0000 

BUF 

=50200 

5 BASIC INPUT BUFFER 

0000 

SATUS 

=50096 

JSTATUS BYTE 

0000 

SA 

=500D3 

;SECONDARY ADDRESS 

oooo 

FA 

=50004 

;PRIMARY ADDRESS 

0000 

FNLEN 

=500D1 

JFILE NAME LENGTH 

0000 

FNADR 

=500DA 

JFILE NAME A0DRES3 

0000 

EAL 

=50009 

J END ADDR LO 

0000 

EAH 

=500CA 

;HI 

0000 

VARTA3 

=S002A 

5 END OF BASIC PGM. 

0000 

JPROGRAM VARIABLES 


0000 

CR 

=50D 

;SYMBOLIC CARRIAGE RETURN 

0000 

DEVADR 

=S03FE 

JDEVICE ADDRESS 

0000 

FLAG 

=S03FF 

J BYTE USED AS A FLAG 

0000 

PIAK 

=3£S12 

JKEYBOARD I/O PORT 

0000 

CMDLN 

=CMDEND—CMD 

JLENGTH OF RELOCATE 


35 





DOS SUPPORT PROGRAM.PAGE 0002 


INE # LOC. CODE LINE 


44 

0000 

JPET ROUTINES USED 


*5 

0000 

LINPRT 

=30CD? 

JPRINT LINE # 

0v,46 

0000 

spmsg 

=sF315 

J SEND A MESSAGE 

0047 

0000 

LD15 

=3F322 

J-LOAD ROUTINE * 

0043 

0000 

TWA IT 

=SF8E6 

;WAIT FOR STOP KEY 

004? 

0000 

CHRGET 

=30070 

JINPUTS CHARACTERS 

0050 

0000 

CHRGOT 

=30076 

JGET LAST CHAR 

0051 

0000 

NEWSTT 

=30604 

J NEW STATEMENT EXEC 

0052 

0000 

PRT 

=S£3DS 

JPRINT A CHARACTER 

0053 

0000 

LISTN 

=3F0BA 

JSEND LISTEN 

0054 

0000 

SECNO 

=3F12S 

J SEND SA 

0055 

0000 

Cl OUT 

=SF16F 

J SEND CHARACTER 

0056 

0000 

UNLSN 

=SF1S3 

JUN LISTEN 

0057 

0000 

ACPTR 

=3F1S'0 

JGET A CHAROATER 

0053 

0000 

TALK 

=3F0B6 

JSEND TALK 

005? 

0000 

OPENI 

=3F466 

JOPEN FILE 

0060 

0000 

CLSEI 

=3F6F0 

JCLOSE FILE 

0061 

0000 

MAIN 

=3C3?2 

JREENTER SASIC 

0062 

0000 

RUNC 

=30572 

JCLEAR VARIABLES 

0063 

0000 

LNKPRG 

=30442 

J LINK BASIC LINES 

0064 

0000 

UNTLK 

=3F17F 

JUN TALK 






86 
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1 


f ’NE 

# LOC 


CODE 

LINE 





0000 




;WEDGE 

IN ROUTINE WITH 

THE 

^ ^7 

0000 




SCOMMAND PARSER AND EXECUTITION 

0063 

0000 





*=$0700 


0069 

0700 




• 

> 




0070 

0700 

EA 



CMD 

NOP 


.•THROWN AWAY 

0071 

0701 

E6 

77 



INC 

TXTPTR 

> BUMP POINTER 

0072 

0703 

DO 

02 



BNE 

WG100 


0073 

0705 

Eo 

78 



INC 

TXTPTR+1 


0074 

0707 

AD 

FE 

03 

WG100 

LDA 

DEVAOR 

?WEDGE IN ? 

0075 

070A 

30 

3F 



BMI 

WG997 

;NO .... 

0076 

070C 

A5 

77 



LDA 

TXTPTR 

JFIRST COLUMN 

0077 

070E 

DO 

33 



BNE 

WG997 

5 GET OUT NOT FIRST CHR 

0073 

0710 

A5 

73 



LDA 

TXTPTR+1 


0079 

0712 

C9 

02 



CMP 

#>BUF 

JIN BUFFER? 

OOSO 

0714 

DO 

35 



BNE 

WG997 


0031 

0716 




« 




0032 

0716 

AO 

00 


WG110 

LDY 

#S00 

J.Y IS 3UF INDEX 

0083 

0713 

3C 

FF 

03 


STY 

FLAG 

.‘FLAG SET FOR DIR 

0034 

071B 

B1 

77 



LDA 

(TXTPTR),Y 


0035 

071D 

C9 

3E 



CMP 

#' > 

;COMMAND PROMPT? 

0036 

071F 

FO 

12 



BEQ 

WG115 

5 YES... 

0037 

0721 

C9 

40 



CMP 


J BUSINESS KEYBOARD PROMPT 

0033 

0723 

FO 

OE 



BEQ 

WG115 

5 YES... 

,0089 

0725 

CS 




I NY 



1 "*90 

0726 

3D 

FF 

03 


STA 

FLAG 

JSET FLAG FOR LOAD 

n 

0729 

C9 

2F 



CMP 

W' / 

;LOAD PROMPT 

v.-j92 

072B 

FO 

6D 



BEQ 

DODIR 


0093 

072D 

C9 

5E 



CMP 

#94 

;CHECK FOR ARROW 

0094 

072F 

FO 

69 



BEQ 

DODIR 


0095 

0731 

DO 

13 



BNE 

WG997 


0096 

0733 

Co 



wans 

INY 



0097 

0734 

B1 

77 



LDA 

(TXTPTR),Y 


0093 

0736 

FO 

3B 



BEQ 

RDERR 

.•READ ERROR CHANNEL 

0099 

0733 

C9 

24 



CMP 

#•’$ 

.‘DIRECTORY? 

0100 

073A 

FO 

5E 



BEQ 

DODIR 

; YES 

0101 

073C 

C9 

4B 



CMP 

#■' K 

.•KILL THE WEDGE 

0102 

073E 

DO 

OE 



BNE 

NOTDIR 


0103 

0740 

A9 

SO 



LDA 

#S80 

J KILL THE WEDGE 

0104 

0742 

4D 

FE 

03 


EOR 

DEVADR 


0105 

0745 

3D 

FE 

03 


STA 

DEVADR 


0106 

0743 

C3 




INY 



0107 

0749 

34 

77 



STY 

TXTPTR 


0103 

074B 

4C 

76 

00 

WG997 

JMP 

CHRGOT 



3.7 
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f ”NE 

# LOC 


CODE 

LINE 




0 

074E 




• 

9 




„ 1 

074E 




J SEND 

COMMAND TO DISK 


0U2 

074E 




• 

9 




0113 

074E 

AD 

FE 

03 

NOTDIR 

LDA 

DEVADR 

JGET DEVICE ADDRESS 

0114 

0751 

S5 

D4 



STA 

FA 


0115 

0753 

A9 

6 F 



LDA 

#S6F 

5 SECONDARY ADDRESS 15 

0116 

0755 

35 

D3 



STA 

SA 


0117 

0757 

20 

BA 

FO 


JSR 

LISTN 


011S 

075A 

A5 

D3 



LDA 

SA 


0119 

075C 

20 

2S 

FI 


JSR 

SECND 

JSEND SECONDARY ADDR 

0120 

075P 

E6 

77 


BUMP 

INC 

TXTPTR 


0121 

0761 

AO 

00 



LDY 

#SOO 

JINDEX=0 

0122 

0763 

31 

77 



LDA 

(TXTPTR),Y 

J GET THE FIRST CHARACTER 

0123 

0765 

FO 

06 



BEQ 

WG120 

5 ZERO IS LAST CHAR 

0124 

0767 

20 

6 F 

FI 


JSR 

Cl OUT 

JSEND THE CHAR 

0125 

076A 

33 




CLV 



0126 

076B 

50 

F2 



BVC 

BUMP 

J MORE 

0127 

076D 




• 

9 




012S 

076D 

20 

83 

FI 

WG120 

JSR 

UNLSN 

JUN'LISTEN 

0129 

0770 

B3 




CLV 



0130 

0771 

50 

24 



BVC 

WG99S 


0131 

0773 




■ 

9 




0132 

0773 




J READ 

THE 

ERROR CHANNEL 

kOlo-A 

0773 




« 

9 



- 

f 34 

0773 

84 

77 


RDERR 

STY 

TXTPTR 

J FIX POINTER 

15 

0775 

AD 

FE 

03 


LDA 

DEVADR 

J SET FA 

. S6 

0778 

35 

D4 



STA 

FA 


0137 

077A 

20 

B6 

FO 


JSR 

TALK 


0138 

077D 

A9 

6F 



LDA 

#S6F 

JCOMMAND CHANNEL SA ” 

0139 

077F 

35 

D3 



STA 

SA 


0140 

0731 

20 

23 

FI 


JSR 

SECND 

JSEND SA 

0141 

07S4 

20 

SC 

FI 

WG140 

JSR 

ACPTR 

J GET BYTE FROM DISK 

0142 

0737 

C9 

OD 



CMP 

TtCR 


0143 

0739 

FO 

06 



BEQ 

WG130 


0144 

073B 

20 

D3 

E3 


JSR 

PRT 

JPRINT BYTE TO SCREEN 

0145 

07SE 

B3 




CLV 



0146 

07SF 

50 

F3 



BVC 

WG140 

J LOOP FOR MORE 

0147 

0791 

20 

DS 

E3 

WG130 

JSR 

PRT 

JPRINT CR 

0148 

0794 

20 

7F 

FI 


JSR 

UNTLK 

JUN TALK 

0149 

0797 

4C 

76 

00 

WG998 

JMP 

CHRGOT 

J DONE WITH CMD 


88 
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NE # LOC 


CODE 


PAGE 0005 


LINE 


1 079A 

0. 2 079A 

0153 079A 

0154 079A. Co 

0155 079B B1 77 

0156 079D DO F3 

0157 079F 34 77 

0158 07A1 S3 

0159 07A2 34 D1 

0160 07A4 A9 01 

0161 07A6 35 DA 

0162 07AS A9 02 

0163 07AA 35 DB 
0164 07AC AD’FE 03 
0165 07AF 35 D4 

0166 0731 AD FF 03 

0167 07B4 DO 79 

0163 0736 A9 60 

0169 073S S5 D3 

0170 07BA 20 66 F4 
0171 07BD 20 B6 FO 
0172 07C0 AS D3 

0173 07C2 20 23 Fl 

.0174 07C5 A9 00 

I '75 07C7 35 96 

W ’6 07C9 AO 03 

u*/7 07C3 

0173 07CB SC FF 03 
0179 07CE 20 SC Fl 
01S0 07D1 43 

01 SI 07D2 A4 96 
0132 07D4 DO 4D 

0133 07D6 20 SC Fl 

01S4 07D9 A4- 96 

0135 07DB DO 46 

01S6 07DD AA 

01S7 07DE 63 

0133 07DF AC FF 03 

0189 07E2 S3 

0190 07E3 DO E6 

0191 07E5 SD FF 03 

0192 07ES 3 A 

0193 07E9 AE FF 03 

0194 07EC 20 D9 DC 

0195 07EF A9 20 

0196 07F1 20 D8 E3 

0197 07F4 20 SC Fl 

019S 07F7 A6 96 

0199 07F9 DO 29 

07FB C9 00 
07FD FO 1A 
07FF 20 D8 E3 
0203 0802 AD 12 ES 

0204 0S05 C9 EF• 

0205 0S07 FO .IB 


O200 

01 

C02 


;PRINT THE DIRECTORY 

DODIR INY 

LDA (TXTPTR)»Y 
BNE DODIR 
STY TXTPTR. 

DEY 

STY FNLEN 
LDA #<BUF+1 
STA FNADR 
LDA #>BUF 
STA FNADR+1 
LDA DEVADR 
STA FA 
LDA FLAG 
BNE LOAD 
LDA #$60 
STA SA 
JSR OPENI 
JSR TALK 
LDA SA 
JSR SECND 
LDA #500 
STA SATUS 
LDY #503 

WG220 STY FLAG 
JSR ACPTR 
PHA 

LDY SATUS 
BNE W6235 
JSR ACPTR 
LDY SATUS 
BNE WG235 
TAX 
PLA 

LDY FLAG 
DEY 

BNE W6220 
STA FLAG 
TXA 

LDX FLAG 
JSR LINPRT 
LDA #’ 

JSR PRT 

WG250 JSR ACPTR 
LDX SATUS 
BNE WG230 
CMP #500 
BEQ WG240 
JSR PRT 
LDA PIAK 
CMP #$EF 
BEQ WG230 


}GET LENGTH OF CMD 


;SET POINTER 

JSET LENGTH (-1) 

;FILE NAME ADDRESS 


DEVICE ADDRESS 

5 0 MEANS DIR 
;DO A LOAD 
;SECONDARY ADDR 

JOPEN THE FILE 
;TELL DISK TO TALK 
JSECONDARY ADDRESS 


;S£T STATUS TO 0 
5LOOP THREE TIMES 

;SAVE NEVJ COUNT 
;GET A CHAR 

;CHECK STATUS 
J BAD STATUS 

JCHECK STATUS 

J INTO X REG 
JRESTORE FIRST CHAR 
5 MORE TO DO? 

;NOT DONE YET 
;SWAP X AND A 


5 PRINT LINE NUMBER 
5 PRINT A SPACE 


5 BAD 
JEOL 


;CHECK FOR STOP KEY 
JIS IT THERE ? 

5 YES... 


B9 * 
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PAGE 0006 



NE 

# LOG 


CODE 

LINE 




)6 

0309 

20 

E4 

FF 


JSR 

SFFE4 

5 GET A CHAR FROM 

0^07 

080C 

FO 

E6 



BEQ 

WG250 

iNOTHING... 

0203 

OSOE 

C9 

20 



CMP 

#$20 

JSPACE BAR? 

0209 

0310 

DO 

E2 



BNE 

WG250 

JNO... 

0210 

0812 

20 

E4 

FF 

WG255 

JSR 

SFFE4 

JANY KEY STARTS 

0211 

0815 

FO 

FB 



BEQ 

WG255 


0212 

0317 

DO 

DB 



BNE 

WG250 

J(JMP) 

0213 

0819 

A9 

OD 


WG240 

LDA 

#CR 


0214 

03 IB 

20 

D3 

E3 


JSR 

PRT 


0215 

08 IE 

AO 

02 



LDY 

#$02 

5 DO TWICE 

0216 

0320 

B8 




CLV 



0217 

0321 

50 

A3 



BVC 

WG220 


021S 

0823 

oS 



WG235 

PLA 


5 CLEAN UP 

0219 

0324 

20 

FO 

F6 

WG230 

JSR 

CLSEI 

JCLOSE FILE 

0220 

0327 

A9 

OD 



LDA 

#CR 

JPRINT A RETURN 

0221 

0S29 

20 

D8 

E3 


JSR 

PRT 


0222 

082C 

4C 

76 

00 

WG999 

JMP 

CHRGOT 

;RETURN TO BASIC 
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r NE 


I 


LOC 


CODE 


LINE 


>4 

0S2F 




• 

» 



» 15 

082F 




J LOAD 

A FILE 

0'226 

0S2F 

A9 

00 


LOAD 

LDA 

#500 

0227 

0831 

85 

96 



STA 

SATUS 

022S 

0833 

35 

9D 



STA 

VERCK 

0229 

0S35 

20 

22 

F3 


JSR 

LD15 • 

0230 

0838 

20 

is 

F3 


JSR 

TWA IT 

0231 

0833 

A5 

96 



LDA 

SATUS 

0232 

0S3D 

29 

10 



AND 

#SPERR 

02oo 

083F 

DO 

EE 



BNE 

LOAD 

0234 

0341 

AO 

AE 



LDY 

#MS19—MS1 

0235 

0S43 

20 

15 

F3 


JSR 

SPMSG 

0236 

0346 

A5 

CA 



LDA 

EAH 

0237 

0S43 

85 

2B 



STA 

VARTAB+1 

023S 

034A 

A5 

C9 



LDA 

EAL 

0239 

084C 

85 

2A 



STA 

VARTAB 

0240 

0S4E 

20 

72 

C5 


JSR 

RUNC 

0241 

0351 

20 

42 

C4 


JSR 

LNKPRG 

0242 

0854 

AD 

FF 

03 


LDA 

FLAG 

0243 

0857 

C9 

2F 



CMP 

#'/ 

0244 

0859 

DO 

03 



BNE 

WG300 

0245 

085B 

4C 

92 

o 

01 


JMP 

MAIN 

0246 

0S5E 

A9 

00 


WG300 

LDA 

#500 

£247 

0860 

AO 

04 

■ 


LDY 

#504 

1^48 

0862 

35 

77 



STA 

TXTPTR 

" -9 

0864 

34 

73 



STY 

TXTPTR+1 

- 50 

0366 

4C 

C4 

C6 


JMP 

NEWSTT 

0251 

0869 




CMDEND 





5 CLEAR STATUS. 

J LOAD NOT VERIFY 
JLOAD A PROGRAM 
J STOP KEY 

5 CHECK STATUS (EOI OK) 

;SAY READY 
JPRINT A MESSAGE 
JSET BASIC'S POINTERS 


JFIX POINTERS 
5FIX LINKS 

JCHECK FOR LOAD OR RUN 
JLOAD ? 

J NO... 

JLOAD RETURN TO BASIC 
J SET TXTPTR FOR RUN 


J RUN PROGRAM 




R11 
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• TU 

f 





TNE 

# LOC- 


CODE 

LINE 

53 

0S69 



• 

9 


c 54 

0S69 



JTHIS 

ROUTINE POKES TOP OF MEMORY 

0255 

0869 



; DOWN 

RELOCATES THE PARSER AND 

0256 

0369 



5 SETS 

THE WEDGE 

0257 

0369 



• 

9 


0253 

0369 

A5 

34 

POKE 

LDA MEMSIZ JPOKE TOP DOWN 

0259 

0368 

13 



CLC . JMINUS ONE 

0260 

0S6C 

E9 

69 


SBC #< CMDLN 

0261 

0S6E 

35 

34 


STA MEMSIZ 

0262 

0370 

A5 

35 


LDA MEMSIZ+1 

0263 

0372 

E9 

01 


SBC #>CMDLN 

0264 

0374 

35 

35 


STA MEMSIZ+1 

0265 

0S76 



• 

* 


0266 

0376 

• 


;MOVE 

THE CODE 

0267 

0876 



« 

* 


0263 

0376 

AO 

01 

MOVE 

LDY #301 5 SET UP FROM ADDR 

0269 

0373 

A9 

00 


LDA #<CMD 

0270 

0S7A 

35 

C7 


STA SAL 

0271 

0S7C 

A9 

07 


LDA #>CMD 

0272 

037E 

35 

CS 


STA SAH 

0273 

0380 

A5 

34 


LDA MEMSIZ 5SET UP TO ADDR 

0274 

0332 

35 

5C 


STA GRBTOP 

0275 

0SS4 

A5 

35 


LDA MEMSIZ+1 

^^0276 

0336 

35 

5D 


STA GRBTOP+1 

W “77 

0333 

B1 

C7 

M0V1 

LDA (SAL)» Y J RELOCATE 

73 

OSSA 

91 

5C 


STA (GRBTOP ),Y 

v ^79 

03SC 

Co 



INY 

0230 

03SD 

DO 

F9 


BNE'MOVl 

0231 

0S3F 

E6 

5D 


INC GRBTOP+1 

0282 

0391 

E6 

C3 


INC SAH 

0233 

0893 

A5 

C3 


LDA SAH 

02S4 

0S95 

C9 

03 


CMP #>CMDEND 

0285 

0397 

FO 

02 


BEQ M0V2 

02S6 

0399 

BO 

04 


BCS WEDGE 

02S7 

0S98 

AO 

00 

M0V2 

LDY #300 

02SS 

039D 

FO 

E9 


BEQ M0V1 

0239 

039F 



• 

> 


0290 

039F 



i WEDGE 

INTO BASIC 

0291 

0S9F 



• 

9 


0292 

0S9F 

A9 

40 

WEDGE 

LDA #S4C ‘JUMP INSTRUCTION 

0293 

0SA1 

35 

70 


STA CH'RGET 

0294 

0SA3 

A4 

34 


LDY MEMSIZ 

0295 

03A5 

A6 

35 


LDX MEMSIZ+1 

0296 

0SA7 

Co 



INY 

0297 

OSAS 

DO 

01 


BNE WEDGE1 

0298 

OSAA 

ES 



INX 

0299 

OSAB 

34 

71 

WFDGE1 

STY CHRGET+1 

0300 

OSAD 

36 

72 


STX CHRGET+2 

0301 

OSAF 

A9 

08 


LDA #SOS 5 DEFAULT ADDR 

“302 

0SB1 

3D 

FE 03 


STA DEVADR 

ms 

0SB4 

60 



RTS 

W ,04 

08B5 




.END 


81 ? 


ERRORS 3 OOOO 
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ao 
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dldlX-L 

938d 
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PC j IRQ SR RC XR VR 3P 
940 f E62£ 32 34- 5E 00 F3 


0700 

Efi 

E6 

{ { 
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2040 Digital Logic Assembly Parts Cross Reference 


OEAtER 


REF. DES. 

DESCRIPTION 

PART /A 

PRICE 

C-1-C6, C8-C18, C21 

•. 1 MF 50V 

900020-01 

.23 

C23-C29 




C31, C33, C35-C46 

. 1 MF '50V 

900020-01 

.23 

C7 

100 PF 50V 

900010-17 

.05 

C19, C22 

10 MF 20V 

900402-09 

.48 

C20 

.0IMF 50V 

900010-38 

.05 

C30, C32 

10 MF 25V 

900100-01 

.10 

C34 

47 MF 16V5 

900100-33 

.33 

CR1-CR6 

1N5402 

900753-01 

.28 

CR7-CR9 

1N4001 

900750-01 

.11 

PI 

IEEE Conn. Right Angle 

903206-01 

5.35 

P2 

Header, .1 Spacing, 20 

Pin 9033H-01 

1.60 

P3 

Header, .156 Spacing,5 

Pin 903302-02 

.13 

P4 

Header, .156 Spacing,3 

Pin 903302-13 

.09 

P4 

Header, .156 Spacing,6 

Pin 903302-06 

.14 

?5 

Header, .1 Spacing, 2 

Pin 903307-12 

.08 

HI, R2, R12-R14 

470 ohm, 1/4 W 5% 

901550-53 

.05 

R3, R4 

5.1 K ohms 1/4 W, 5% 

901550-03 

.05 

R5, R6 

2.4 K ohms 1/4 W, 5% 

901550-35 

.05 

17, R15, R16 

2 K ohms, 1/4 W, 5% 

901550-53 

.05 

R8 

10 K ohms, 1/4 W, 5% 

901550-20 

.05 

H9 

TOO K ohms, 1/4 W, 5% 

901550-07 

.05 

UA1, UE6, UL2 

74 LS 04 

901521-02 

.34 

UA3, UB3 

74 LS 42. 

901521-17 

.85 

UA4 

7414 

901522-19 

.95 

UA6 

74 '04 

901525-01 

.45 

UB1, UB2, UD2 

MC 3446 

901524-01 

2.47 

UB4, UH6, UJ2 

74 LS 00 

901521-01 

.32 

UB6 , UC5 , UD6 

74 LS 193 

901521-26 

1.15 

UC1, UE1 

6532 PIA 

901453-01 

10.50 

UC3, UD3, UE3, UF3 

74 LS 157 

901521-11 

.75 

UJ5, UK5, 0L5 

74 LS 157 

901521-11 

• .75 

UC4, UD4, UE4, UF4 

6114 RAM 

901453-02 

12.00 

UC5, UD5, UE5, UF5 

6114 RAM 

901453-02 

12.00 

(JF6, UH2 

74 LS 02 

901521-21 

.48 

UH1 

6332-21, ROM 

901463-07 

20.00 

UH3 

6504 MPU 

901455-01 

10.00 

UH5 

74190 

901522-16 

1.18 

UJ6, UN2 

7406 

901522-06 

.36 

UK3 

6530 PIA 

901466-02 

14.00 

UK6 

6316 ROM 

901467-01 

20.00 

UL1 

6332-20 ROM 

901463-06 

20.00 

UM2 ■ 

LM555 

901523-01 

.45 

UM3 

6522 VIA 

901437-01 

12.00 

UM5 

74 LS 133 

901521-15 

.85 

JM6, UN6 

74 LS 165 

901521-12 

1.55 

UNI 

6502 MPU 

-901435-01 

11.25 


Cl 








REF. 

DES. 

DESCRIPTION 


PART /A 

PRICE 

UN5, 

UP5 

74 

LS 

164 


901521-28 

1.23 

VR1 , 

VR2 

78" 

12 

+ 12V 

1.5A REG 

901528-04 

2.25 

VR3 


LM 

323 

+5 

3A REG 

901528-01 

7.00 

Y1 


16 

MHZ 

Crys 

tal 

900557 -01 

1.40 



28 

PIN 

I.C. 

Socket 

9 0 4 1 56 -05 

.50 



24 

PIN 

I.C. 

Socket 

904150 -04 

.35 



40 

PIN 

I.C. 

Socket 

904150.-06 

.60 


C2 







2040 Analog Assembly Parts Reference 


DEALER 


REF. NUMBER 

DESCRIPTION 

PART NUMBERS 

PRICE 

C1.C2 

4.7NF 25V Elect. 

900101-07 

S .16 

C3,C4,C10,C11,C14 

.IMF 50V Cerm 

900020-01 

23 

C5,C15 

300PF 500V Mica 

900050-16 

.45 

C6,C7 

750PF 300V Mica 

900050-15 

.83 

ca 

.033MF 50V Cerm 

900020-03 

.54 

C9 

10MF 20V Tant 

900402-09 

.48 

C12 

4700PF 200V Mica 

900050-17 

.53 

C13 

1.6MF 15V Tant 

900105-01 

1.20 

C16 

680PF 300V Mica 

900050-01 

.79 

cu.cia 

.01MF 50V Cerm 

900010-38 

.06 

CR1-CR16 

IN4003 Diode 

900750-03 

.11 

CR17-CR26 

IN4148 Diode 

900850-01 

.05 

LI 

100MH RF Choke 

901301-01 

2.30 

L2,L5 

150MH RF Choke 

901301-02 

1.30 

L3,L4 

680MH RF Choke 

901301-03 

1.18 

P 6 

5 Pin Header (Power) 

903302-02 

.40 

P7 

20 Pin Header 

903311-01 

1.60 

P9,P10 

4 Pin Header (Read/Write Head) 

903315-01 

.98 

qi,Q2,Q5,Q6 

2N44Q3 

902704-010 

.18 

Q3,Q4,Q7-qiO 

2N4401 

902652-01 

.15 

R1-R4,R27 

IK ohm hU 

901550-01 

.05 

R5-R12 

R13,R19,R20,R28, 

580 ohm hU 

901550-31 

.05 

R31,R38 

20K ohm 

901550-92 

.05 

R14,R23,R47 

2K ohm hiA 

901550-53 

.05 

R15 

272 ohm J 3 W 1% 

901751-10 

.17 

R16 

909 ohm J 5 W 1% 

901751-13 

.17 

R17 

750 ohm HW 1% 

901751-09 

.17 

R18,R25 

2.26K ohm 1% 

901751-14 

.17 

R21 

300 ohm hl/i 

901550-70 

.05 

R22 

100 ohm %W 

901550-49 

.05 

R24 

604 ohm HW 1% 

901751-11 

.17 

R26 

510 ohm %W 

901550-38 

.05 

R3Q,R37 

845 ohm %W 1% 

901751-12 

.17 

R32,R40 

3K ohm 

901550-33 

.05 

R33,R41-R45 

9.09K ohm hlA 1% 

901751-15 

.17 

R36 

75 /: 'ohm hA 

901550-45 

.05 

R39 

68 ^ ohm h!A 

901550-94 

.05 

R46 

75K ohm %W 

901550-86 

.05 

RP1.RP2 

330 ohm Resistor Pack 

902422-01 

.75 

RP3 

680 ohm Resistor Pack 

902422-02 

.75 

UA2 

9602 One Shot 

901510-01 

.30 

UA3 

7486 Exclusiv or Gate 

901522-18 

.50 

UA4 

LM 311 Voltage Comparator 

901523-04 

.90 

UA5 

LM 592 OP-AMP 

901523-08 

2.35 

UB1.UD1 

7406 Hex Tnv. Buffer 

901522-06 

.40 

UB2,UC1 

74LS04 Hex Inv. 

901521-02 

.35 

UB3 

74LS74 Flip-Flop 

901521-06 

.50 

UC3 

Q2T2905 Transistor Pack 

902551-01 

1.96 

UC5 

Q2T2222 Transistor Pack 

C3 

902550-01 

1.96 
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PART 
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47 

19, 

39, 

50 

37 

43 

l4 

5 

53 

54 

56 

57 

59 

45 

35 

24 

17 

13 

31 

34 

41 

25 

5 

46 

9 

33 

38 

2 

3 

53 

1 ,. 

60 

51 

44 

18 

49 

7 

8 

42 

26 

1 


SPARE PARTS PRICE LIST FOR SHUGART 390 DRIVE 


PART NUMBER 

10166-0 

10186-0 

10187-0 

10189-0 

10191-0 

*10804-0 

*10805-0 

11305-0 

11312-0 

11900-0 

12501-0 

15663-0 

15915-0 

17212-0 

25063-0 

54003-1 

54006-0 

*54032-0 

54038-0 

54047-0 

54048-0 

54055-0 

54057-0 

54062-0 

54066-1 

54067-0 

*54068-0 

54070-0 

54073-0 

54077-2 

54078-0 

*54089-0 

*54090-0 

*54097-0 

54099-0 

54125-0 

54131-0 

54132-1 

*54138-0 

54145-0 

320817-01 


* Not Field 


DESCRIPTION 

PRICE 

Screw 2/56X.500 

.50 

SCW#6-32X.19 T1Q159 

.50 

SCW6-32X.25 T101S9 

.50 

SCW BH 6-32X.375 T1 

.50 

SCW#6-32X.50 T101S9 

.50 

3earing, Ball 

4.50 

3 earing, 8all 

5.00 

Ring Retaining 

.50 

Fastener, LED 

1.00 

Screw 6/32X.250 

.50 

Lock Wahser §6 T12502 

.50 

Tab, Fasion 

.50 

LED, Red 

1.50 

Switch Write Protect 

3.00 

Orive Mtr Speed 


Control AM 

22.00 

Cam-Actuator 

.50 

Rod, Guide 

1.50 

Spindle-Machined 

27.00 

Plate Trk 0 

1.00 

Orive Motor 

28.50 

Belt, Orive 

5.00 

Carriage Head ASM 

91.50 

Stop, Diskette 

.50 

Plate Nut 

.50 

Hub Clamp ASM 

5.50 

Orive Motor ASM 

45.00 

Step Motor ASM 

27.00 

Hub Frame ASM 

39.50 

Door Hinge ASM 

2.00 

Cover, Front 

2.50 

Keeper, Guide Rod 

.50 

Guide Oisk ASM 


Right Side 

1.50 

Guide Oisk ASM 


Left Side 

1.50 

Spacer, Long 

1.00 

Clamp, Guide Rod 

.50 

Platen, Machined 


Complete 

1.50 

Collar Hub 

.50 

Spring, Clamp 

.50 

Pulley ASM 

22.00 

Load Button ASM 

1.50 

Analog Board 

45.00 


Replaceable 
0 1 
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